home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 901_1000 / DISK0961 / DISK0961.ZIP / WHLABELS.BAS < prev   
BASIC Source File  |  1987-01-01  |  2KB  |  37 lines
  1. 90 INPUT "PLACE NAME AND ADDRESS DISK BACK IN DRIVE A AND STRIKE ENTER";X
  2. 92 INPUT "PLACE LABELS IN PRINT AND STRIKE ENTER";X:LPRINT "NAME":LPRINT "ADDRESS 1":LPRINT "ADDRESS 2":LPRINT "CITY,STATE,ZIP":LPRINT:LPRINT
  3. 93 INPUT "LABELS LINED UP";ASK$:IF LEFT$(ASK$,1)="y" OR LEFT$(ASK$,1)="Y" THEN 95 ELSE 92
  4. 95 GOSUB 170
  5. 97 INPUT "START AT UNIT #";STRT:INPUT "STOP AT UNIT #";STP
  6. 100 FOR U=STRT TO STP
  7. 105 GET #1,U
  8. 106 GET #2,U
  9. 107 GET #3,U
  10. 108 GOSUB 155
  11. 109 IF LEFT$(TENANT$,6)="VACANT" THEN 130
  12. 110 LPRINT TENANT$:LPRINT ADDR$:LPRINT ADDR1$
  13. 112 WHILE RIGHT$(CITY$,1)=" "
  14. 115 CITY$=LEFT$(CITY$,(LEN(CITY$)-1))
  15. 117 WEND
  16. 120 LPRINT CITY$;", ";STA$;"  ";ZIP$:LPRINT :LPRINT
  17. 125 NEXT U
  18. 127 INPUT "Do more labels (Y/N)";ASK$:IF LEFT$(ASK$,1)="Y" OR LEFT$(ASK$,1)="y" THEN 92
  19. 130 INPUT "PLACE PROGRAM DISK BACK IN DRIVE A AND STRIKE ENTER";X
  20. 132 CHAIN "MINI",47,ALL
  21. 133 END
  22. 135 LSET U$=UNIT$:LSET S$=SIZE$:LSET R$=MKS$(RATE)
  23. 140 LSET T$=TERM$:LSET TN$=TENANT$:LSET SP$=SPOUSE$:LSET XN$=ONAME$:LSET A$=ADDR$:LSET A1$=ADDR1$:LSET CI$=CITY$:LSET ST$=STA$:LSET ZP$=ZIP$:LSET PH$=PHONE$
  24. 145 LSET EP$=EMPLOY$:LSET WP$=WRKPH$:LSET DL$=LICENSE$:LSET SPE$=SPOUSEMP$:LSET SWP$=SPWRKPH$:LSET DD$=DUE$:LSET CURBL$=MKS$(OWE):LSET LPD$=LAST$:LSET PL$=PADLOCK$:LSET CT$=CUT$
  25. 150 RETURN
  26. 155 UNIT$=U$:SIZE$=S$:RATE=CVS(R$):TERM$=T$:TENANT$=TN$:SPOUSE$=SP$:ONAME$=XN$:ADDR$=A$:ADDR1$=A1$:CITY$=CI$:STA$=ST$:ZIP$=ZP$:PHONE$=PH$
  27. 160 EMPLOY$=EP$:WRKPH$=WP$:LICENSE$=DL$:SPOUSEMP$=SPE$:SPWRKPH$=SWP$:DUE$=DD$:OWE=CVS(CURBL$):LAST$=LPD$:PADLOCK$=PL$:CUT$=CT$
  28. 165 RETURN
  29. 170 CLOSE #1:CLOSE #2:CLOSE #3
  30. 175 OPEN "R",#1,"UNITS",126
  31. 180 FIELD #1, 4 AS U$,5 AS S$,7 AS R$,8 AS T$,30 AS TN$,30 AS SP$,40 AS XN$,1 AS PL$,1 AS CT$
  32. 185 OPEN "R",#2,"UNITS1",110
  33. 190 FIELD #2,30 AS A$,30 AS A1$,20 AS CI$,2 AS ST$,10 AS ZP$,10 AS PH$,8 AS LPD$
  34. 195 OPEN "R",#3,"UNITS2",126
  35. 200 FIELD #3,30 AS EP$,10 AS WP$,30 AS DL$,30 AS SPE$,10 AS SWP$,8 AS DD$,8 AS CURBL$
  36. 205 RETURN
  37.